home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / DA / P / Pica Calculator 2 / PC2 Folder / PC2 Sample Pgms / PC2 Sample Pgms.rsrc / pPGM_8233_Step Scaling < prev    next >
Encoding:
Text File  |  1993-07-16  |  364 b   |  45 lines
  1. #0
  2. sStepCount
  3. ?Maximum device scale?
  4. /
  5. #100
  6. =
  7. ∞
  8. ?Desired scale?
  9. /
  10. #100
  11. =
  12. sDesiredScale
  13. <
  14. GScaleDown
  15. »ScaleUp
  16. #1
  17. ∑StepCount
  18. rDesiredScale
  19. ¥
  20. rStepCount
  21. =
  22. !scale in device range?
  23. ≥
  24. GScaleUp
  25. GDone
  26. »ScaleDown
  27. #1
  28. ∑StepCount
  29. rDesiredScale
  30. ¥
  31. rStepCount
  32. =
  33. !scale in device range?
  34. <
  35. GScaleDown
  36. »Done
  37. *
  38. #100
  39. =
  40. @Scale each step by %:
  41. rStepCount
  42. @Number of steps required:
  43. “
  44. ~
  45.